module version
    character(12) :: date = '13.08.2013'
    
    character(12) :: release = '1'
	character(12) :: revision = '191'

    character*128 :: ProgramName = 'CFOAM simulator'
contains

subroutine WriteProgramVersion()
implicit none
    character*128 VersionName
    
    write(VersionName,'(3a)') trim(release),'.',trim(revision)
    write(*,*)'This is '//trim(ProgramName)
    write(*,*)' version '//trim(VersionName)
    write(*,*)' built at '//trim(date)

end subroutine WriteProgramVersion

end module version
